' Ladeprogramm fuer HHB V1.0

ON BREAK GOSUB Ende:BREAK ON
ON ERROR GOTO Errormeldung
clearsumme&=125000
IF FRE(-1) > 250000 THEN clearsumme&=FRE(-1)-150000
IF clearsumme&>200000 THEN clearsumme&=200000
CLEAR ,clearsumme&
LOAD "Haushaltssystem/HHB V1.0",r
SYSTEM

Errormeldung:

IF ERR=7 OR ERR=14 THEN
CLS
LOCATE 12,14:PRINT "Das war es auch schon. Viel zu wenig Speicher frei !"
RESUME Ende
END IF
ON ERROR GOTO 0

Ende:

LOCATE 20,24:PRINT "Drücken Sie die Linke Maustaste"
WHILE MOUSE(0)<>-1 :WEND
SYSTEM